home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / M2TSkel.cpt / M2TSkel / TransSkel.def < prev    next >
Text File  |  1987-05-09  |  3KB  |  83 lines
  1. DEFINITION MODULE TransSkel;
  2.  
  3. (*
  4.         Version 1.0M2 — Transportable Skeleton Application
  5.         TransSkel is copyright © 1986 by Paul Dubois
  6.             Modula-2 translation is by Dennis Cohen
  7.             This version of TransSkel is written for TML Modula-2.  TML Modula-2
  8.             is a trademark of:
  9.                 TML Systems
  10.                 4241 Baymeadows Rd.
  11.                 Jacksonville, FL 32217
  12.                 (904) 636-8592
  13.  
  14.         History:
  15.             05Aug86        Receive LightSpeed C version on UseNet
  16.             10Jan87        Translate and reimplement in TML Pascal
  17.             11Apr87        1.0 compatible version
  18.             04May87        Receive 1.03 LightSpeed C version from Paul DuBois
  19.             04May87        Version 1.03m2, this version
  20. *)
  21.  
  22. FROM QuickDraw IMPORT Point;
  23. FROM MacTypes IMPORT StringPtr;
  24. FROM MenuManager IMPORT MenuHandle;
  25. FROM EventManager IMPORT EventRecord;
  26. FROM WindowManager IMPORT WindowPtr;
  27. FROM DialogManager IMPORT DialogPtr;
  28.  
  29.  
  30. TYPE
  31. (*
  32.     The following are the formats of the various handler routines that you
  33.     pass the address of to the Skel routines.
  34. *)
  35.     WMouseProc = PROCEDURE(Point, LONGINT, BITSET);
  36.     WKeyProc = PROCEDURE(CHAR, BITSET);
  37.     WUpdateProc = PROCEDURE(BOOLEAN);
  38.     WActivateProc = PROCEDURE(BOOLEAN);
  39.     WCloseProc = PROC;
  40.     WClobberProc = PROC;
  41.     WIdleProc = PROC;
  42.     WEventProc = PROCEDURE(INTEGER, VAR EventRecord): BOOLEAN;
  43.     MSelectProc = PROCEDURE(INTEGER);
  44.     MClobberProc = PROCEDURE(MenuHandle);
  45.     EventHook = PROCEDURE(EventRecord): BOOLEAN;
  46.  
  47.     PROCEDURE SkelInit;
  48.     PROCEDURE SkelMain;
  49.     PROCEDURE SkelWhoa;
  50.     PROCEDURE SkelClobber;
  51.     PROCEDURE SkelMenu(    theMenu: MenuHandle;
  52.                                             pSelect: MSelectProc;
  53.                                             pClobber: MClobberProc);
  54.     PROCEDURE SkelRmveMenu(theMenu: MenuHandle);
  55.     PROCEDURE SkelApple(aboutTitle: ARRAY OF CHAR; aboutProc: PROC);
  56.     PROCEDURE SkelWindow(    theWind: WindowPtr;
  57.                                                 pMouse: WMouseProc;
  58.                                                 pKey: WKeyProc;
  59.                                                 pUpdate: WUpdateProc;
  60.                                                 pActivate: WActivateProc;
  61.                                                 pClose: WCloseProc;
  62.                                                 pClobber: WClobberProc;
  63.                                                 pIdle: WIdleProc;
  64.                                                 frontOnly: BOOLEAN);
  65.     PROCEDURE SkelRmveWind(theWind: WindowPtr);
  66.     PROCEDURE SkelGrowBounds(    theWind: WindowPtr;
  67.                                                         hLo, vLo, hHi, vHi: INTEGER);
  68.     PROCEDURE SkelBackground(p: PROC);
  69.     PROCEDURE SkelDialog(    theDialog: DialogPtr;
  70.                                                 pEvent: WEventProc;
  71.                                                 pClose: WCloseProc;
  72.                                                 pClobber: WClobberProc);
  73.     PROCEDURE SkelDlogMask(mask: BITSET);
  74.     PROCEDURE SkelEventHook(p: EventHook);
  75.     PROCEDURE SkelEventMask(mask: BITSET);
  76.     PROCEDURE SkelGetBackground(VAR p: PROC);
  77.     PROCEDURE SkelGetDlogMask(VAR mask: BITSET);
  78.     PROCEDURE SkelGetEventHook(VAR p: EventHook);
  79.     PROCEDURE SkelGetEventMask(VAR mask: BITSET);
  80.     PROCEDURE SkelRmveDlog(theDialog: DialogPtr);
  81.  
  82. END TransSkel.
  83.